;*******************************************************
; Shift Table Data
; Input  :
;           %R6 = sorce address
;           %R7 = move count
; Output :
;           non
;
; date   :  2000/05/26
; outher :  M.Kakinuma
; 2001/11/29  T.Tazaki for GNU33(Linux)
;*******************************************************

        .global ANSI_SFTR1ROW
        .global ANSI_SFTF1ROW
        .global ANSI_CLRZ
        .text
ANSI_SFTR1ROW:
        ld.w    %r8,%r6		; distination address, %r12
        add     %r8,0x8        	; sorce address, %r14
SFTR00:                         ; 
        ld.w    %r4,[%r8]+    	; 
        ld.w    [%r6]+,%r4    	; 
;
        ld.w    %r4,[%r8]+    	; 
        ld.w    [%r6]+,%r4    	; 
;
        sub     %r7,0x1        	; 
        jrne    SFTR00          ; 
;
        ret
;
;-------------------------------
ANSI_SFTF1ROW:
        add     %r6,0x4
        ld.w    %r8,%r6       	; distination address, %r12
        sub     %r8,0x8        	; sorce address , %r14
SFTF00:                         ; 
        ld.w    %r4,[%r8]     	; 
        ld.w    [%r6],%r4     	; 
        sub     %r6,0x4        	; 
        sub     %r8,0x4        	; 
;
        ld.w    %r4,[%r8]     	; 
        ld.w    [%r6],%r4     	; 
        sub     %r6,0x4        	; 
;
        sub     %r7,0x1        	; 
        jrne.d  SFTF00          ; 
        sub     %r8,0x4        	; 
;
        ret
;
;-------------------------------
ANSI_CLRZ:
        ld.w    %r4,0x0        	; fill data
CLR00:                          ; 
        ld.b    [%r6]+,%r4    	; 
        sub     %r7,0x1        	; 
        jrne    CLR00           ; 
;
        ret